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MathPSfrag: Creating Publication-Quality Labels in Mathematica Plots 
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This article introduces a Mathematica® package providing a graphics export function that auto- 
matically replaces Mathematica® expressions in a graphic by the corresponding MpJX constructs 
and positions them correctly. It thus facilitates the creation of publication-quality Enscapulated 
PostScript (EPS) graphics. 
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Introduction 

Many programs producing EPS graphics do not allow 
the inclusion of MJijX commands. While there exist sev- 
eral solutions (see for example Q]) to work around these 
difficulties, they all have various drawbacks. In this ar- 
ticle, we will focus on a particular existing solution, the 
PSfrag package t 2j, which provides WTp/i macros allow- 
ing to replace pieces of text ("tags") in an EPS file by an 
arbitrary I^TfrjX construct. 

However, for PSfrag to work, the application must 
write tags unaltered into the EPS file. For Mathematica 
0, 0|, this requirement amounts to using single words, 
strictly consisting of alphanumeric characters only. As a 
consequence, the user has to work most of the time with 
an unconveniently labelled graphic and is furthermore re- 
quired to keep track of the tags used in the substitution 
macros. 

On the other hand, it is not always possible to use 
Mathematical conventional export function as it pro- 
duces EPS files requiring the inclusion of additional fonts 
into the document, a process often not being under the 
author's control. A way out is to include the font into the 
EPS file, or set the font family to a standard PostScript 
one: 

Plot[..., TextStyle^{FontFamily^"Times"}] and 
Export [. . . , ConversionOptions^- 

{"IncludeSpecialFonts"^True}] . 

While the slight mis match between the PostScript 
font's appearance, cf. fig. |l(a)[ and that of I^TjrjX's stan- 
dard font (Computer Modern) may be acceptable in case 
of ordinary text labels, mathematical expressions like 
square roots or fractions cannot compete with M^X's 
typesetting quality in this approach. Consequently, some 
authors simply restrict labelling of MATHEMATICA plots 
to a bare minimum. 

MathPSfrag @ is a package that conveniently pro- 
duces publication-quality labels in EPS files generated 
by Mathematica. MathPSfrag automates many (often 
all) tedious details related to the use of the standard 
I^TjrjX package PSfrag, while still allowing manual fine 
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(a) Conventional Mathematica plot before using 
MathPSfrag 
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(b) The same plot after automatically substituting all 
Text primitives (including tick mark labels) by M^X. 



FIG. 1: Old vs. new graphics export mechanism. 
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FIG. 2: Illustration of the various optional arguments of the \psf rag command, taken from |2| with minor changes. The first 
option determines the alignment of the fflpjX description, while the second one is responsible for the point to which the MpjX 
macro is attached. 



tuning. As a dem onstration of the degree of automation, 
compare fig. |l(a)| which has been generated by usi ng the 
standard MATHEMATICA command Export, and fig. |l(b)| 
generated by MathPSfrag's export instruction. 

While the solution presented here, relies on the PSfrag 
package, it avoids many of its shortcomings by providing 
a semi-automatic layer. In particular, 

• in most cases, it is sufficient to simply use the new 
PSf ragExport command, 

• including the graphic into the document requires 
only one additional command. 

This article is organized as follows. A short review of 
PSfrag and a somewhat longer explanation of the semi- 
automatic features provided by MathPSfrag, are given 
in the first and second section, respectively. The third 
part cont ains se vera l exam ples whose code as well as that 
of figures 1 (a) and |l(b)| is contained in the appendix. 
Finally, some of MathPSfrag's internals are discussed. 



I. REVIEW OF PSfrag 

This is intended to be a short introduction into PS- 
frag explaining only the essential features necessary to 
understand the corresponding MathematiCA package's 
internals and to take advantage of its manual options if 
automatic placement does not yield the desired result. 
The full documentation can be found in Q. 

PSfrag provides the macro 

\psfrag(tag) [[posn]] [[psposn]] [[scale]] [[rot]] (f^lfcX), 

which replaces any occurence of (tag) in the output of 
an EPS file by (MfeX). According to 0, "all \psfrag 
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FIG. 3: Example for substituting rotated text. To demon- 
strate that the new export function can preserve the orienta- 
tion, only half of the labels have been substituted by fflpjX. 



calls that precede an \includegraphics (or equivalent) 
in the same or surrounding environments" will affect the 
output of the included graphics, i.e. \psf rag commands 
can be defined either locally, to act on stricly one graphic, 
or globally, thus acting on all graphics in a document. 

[posn] and [psposn] are optional arguments which al- 
low to set (first) the vertical (top, bottom, Baseline, or 
center) and (second) the horizontal (left, right, center) 
alignment of the replacement text by specifying the re- 
spective first character of the choices given in parenthe- 
ses. The arguments refer to the position of the reference 
point in the respective bounding boxes. The MpjX con- 
struct is placed such that its reference point is at the 
position of the corresponding PostScript (tag) box' ref- 
erence point, cf. fig. El 

[scale] and [rot] permit scaling and rotation of the 
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inserted box, where the rotation is relative to the slope of 
the PostScript bounding box such that a value of "0" pre- 
serves the orientation, see fig. El Scaling is best achieved 
by using I^TfrjX scaling commands, like \Large, instead 
of the [scale] option, since the standard I^TjrjX fonts 
consists of bitmaps rendered specifically for the chosen 
size and do not rescale well. As will be demonstrated in 
the example section, MathPSfrag provides macro hooks 
that allow to scale labels retroactively from within the 
document. 



II. HOW TO USE MathPSfrag 

There are only two commands needed to control Math- 
PSf rag's EPS generation: PSf ragExport, which super- 
sedes Mathematical Export command, and PSfrag, 
which allows overriding of the automatics for particular 
expressions. 

The export function 

PSf ragExport [(basename) , (graphics), [options]] 

converts (graphics), the usual Graphics construct re- 
turned by Mathematica commands like Plot, to an 
EPS file and a r^TjrjX file containing \psf rag macros. 

[options] can be any combination of the following op- 
tions, listed with their parenthetic defaults. 



• TeXSuff ix^" (string)" 

• EpsSuf f ix^"(string)" 

• RenumberTags^(boolean) 

• AutoConvertText^(boolean) 

• AutoPosition— ^(boolean) 



("-psfrag.tex") 
("-psf rag. eps") 
(False) 
(True) 
(True) 



The respective file names of the IATgX and EPS file 
are determined by (basename) to which the value of the 
options TeXSuff ix and EpsSuf fix is appended. 

The option RenumberTags— >True will renumber all 
tags and represent the number as one of 52 (small and 
capital) latin characters or a combination of letters when 
the number is larger than 52. This feature, which gener- 
ates very short tags, has been used in fig. to achieve a 
preciser positioning. 

Setting AutoConvertText^False will restrict conver- 
sion of Text directives in (graphics) into r^TjrjX com- 
mands to those directives having been marked manu- 
ally. The default behaviour is to wrap the PSfrag com- 
mand discussed below around all expressions found in 
(graphics) . 

AutoPosition^False switches off the mechanism for 
determining the \psfrag alignment from Mathemat- 
ical internal representation of the graphics. Note that 
this also implies AutoConvertText^False. 

Any other options will be passed on to Export or ap- 
plied to the graphics using a Show commmand, respec- 
tively. 




FIG. 4: Three dimensional example: As there exists no 
FullGraphics3D command, manual labelling was required 
and the RenumberTags option of PSfragExport was used to 
produce smaller tags, increasing positioning precision. 



For the purpose of manually controlling the output, 
that means circumventing the automatics, the 

PSf rag l(expr) , [options]] 

command is available. It can be wrapped around each 
Mathematica expression (expr) appearing as text in a 
graphic, such as the argument of a PlotLabel^ ... or 
AxesLabel^ . . . option. 

PSfrag processes the following options, whose defaults 
have been put in parentheses. 



• TeXCommand- 

• PSfragTag-^ 

• Position^" 

• PSPosition- 

• Rotation— ►" 



+ " (string) ' 
"(string)" 

>"<yx>" 

(number) " 



• Scaling;— ►" (number) " 



(Automatic 
(Automatic 
(Automatic 
(CopyPosition 

(0 

(Automatic 



Actually, PSf ragExport 's automatic mechanism sim- 
ply wraps PSfrag around all Text primitives using the 
default values above. However, manual wrapping has 
the advantage of allowing to apply different options to 
expressions where the automatic behaviour did not give 
satisfactory results. 

TeXCommand-^" (string)" sets to (string) the ^TfjX 
command to appear in the final EPS graphic as a re- 
placement of the corresponding expression (expr). If set 
to Automatic, the internal function GuessTeX is called, 
which is basically a wrapper around TeXForm that adds $ 
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FIG. 5: Using the MgX hooks included by GuessTeX to fine- 
tune the appearance. As one can see, the default values are 
chosen carefully. 
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FIG. 6: Example plot without resorting to automatics: 
AutoConvertText^False, AutoPosition-^False. Addition- 
ally, the "cos ..." label's typesetting has been manually im- 
proved. 



signs around math expressions. Moreover, GuessTeX in- 
serts some Mp^X commands that can be used to change 
the text style from within your document later on. 

GuessTeX has several options of the form 
PreApply(type)^{(list)} and PostReplace(type)— > 
{(list)}, where (type) is one of "Text", "Math" or 
"Numeric". For each type respectively, they provide a 
list for hooking in commands applied before or string re- 
placements applied after TeXForm. Especially, the latter 
is rather useful for working around minor shortcomings 
of earlier Mathematica versions' TeXForm. 

The remaining options are in one-to-one correspon- 
dence with those of \psfrag explained in section []] 
Their respective default value Automatic has the follow- 
ing different meanings for each of them: For PSf ragTag, 
it means that a \psfrag compatible tag is created 
from a string representation of (expr), for Position 
and PSPosition, it means to take over the align- 
ment of the surrounding Text command. (If there 
is none, it waits till the Text command is produced 
during export.) For Rotation, Automatic means "0", 
whereas for Scaling it means insertion of one of three 
I^TjrjX hooks, \psf ragscaletext, \psf ragscalemath 
and \psf ragscalenumeric depending on the type of 
(expr). The default value CopyPosition of PSPosition 
does exactly what it says, i.e. taking over the value of the 
Position option. 



In the ]$TeX document 



III. EXAMPLES 



There are only two additional things the user has to 



do: 



1. add \usepackage{psf rag, graphicx, amsmath} 
into the document's preamble, 

2. use \input{(basename)-psf rag.tex}} to read 
the additional \psfrag labels created with 
PSf ragExport [" (basename) " , myplot] . 



We start to consider in more detail figures 1(a) and 



l(b)| The first one has been generated using standard 
Mathematica commands only, for the latter, the ex- 
port was carried out with PSf ragExport ["example" , 
exampleplot] and it was included into this document 
with 

\begin{psf rags} 
\input{example-psf rag . tex} 
\includegraphics [width=0 . 9\linewidth] 

{example-psf rag . eps} 
\end{psf rags} . 

The \begin{psf rags} starts an empty group provided 
by PSfrag, whose sole purpose is making \psf rag defini- 
tions local to the following graphic. 

There are three I^TjTjX commands, one of which 
is inserted by the automatic I^TfrjX guesser depend- 
ing on the type of expression: \psf ragtextstyle, 
\psf ragmathstyle and \psf ragnumericstyle. The lat- 
ter is used for expressions identified by NumericQ. For 
demonstration of their respective effects, the following 
lines 

\newcommand{\psf ragtextstyle}{\Large} 
\newcommand{\psf ragmathstyle}{\pmb} 
\newcommand{\psfragnumericstyle}{\script style} 

have been inserted just before the \input command of 

fig. El 

Fig. El d emon strates, that it is possible to easily recon- 
struct fig. 1(b) without using the automatic positioning 
feature. Additionally, one of the labels' I^TfrjX code was 
improved to be 3 |cos *j4x\ 5 instead of 3 ^/cos 2 (2 v / x). 

Fig. demonstrates compatibility with the Cus- 
tomTicks package Q and the HoldForm command, which 
can be used to circumvent MATHEMATICAL automatic 
reordering of expressions into a normal form. 

While Mathematica does not reliably rotate text in 
an interactive session, PSfragExport has no problems 
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FIG. 7: HoldForm example: Without HoldForm, Mathemat- 
ica would normal order the label on the y axis to (— l + 3:r) 3 . 
The CustomTicks package has been used to have a "1.0" in- 
stead of a "1." on the x axis. 



in doing so, as has been shown in fig. 03 Note that for 
each piece of text, the Rotation option is set to "0", thus 
preserving the original orientation of the PostScript text. 

Finally, it has been demonstrated in fig. 31 that three 
dimensional graphics can be processed also, even though 
it has to be done manually with PSf rag commands, since 
the FullGraphics command only works on two dimen- 
sional graphics. 



substitute all non-standard WT^K. commands by setting 
up GuessTeX's PostReplace. . .— K. . .} options accord- 
ingly. This works particularly well if there is only a small 
number of non-standard macros generated for a large 
number of text entries. Second, it is still possible to set 
all TeXCommands with PSf rag. 

The automatic positioning relies on FullGraphics 
to substitute all Text generating graphics options by 
Text commands, which in turn are used to read off 
the correct alignment for \psf r ag. How ever, as one 
can see comparing figures 1(a) and |l(b)| the bound- 
ing box differs slightly between Export [graphics] and 
Export [FullGraphics [graphics] ] . There might be 
further differences, which can not be corrected by sim- 
ply rescaling the graphics. Therefore, PSfragExport 
allows to set AutoPosition^False, disabling the use 
of FullGraphics. In this case it has to use static 
standard values when encountering an Automatic value, 
which cannot be interpreted anymore. (These fall back 
values are: Bottomline, centered horizontally.) Since 
the mechanism for converting options like PlotLabel 
into WT^K. labels also depends on FullGraphics, set- 
ting AutoPosition^False implies AutoConvertText^ 
False. 



CONCLUSION 



IV. DISCUSSION 

MathPSfrag relies on two Mathematica commands: 
TeXForm and FullGraphics. Both are potential sources 
of failure. 

For the first one, this is due to substantial changes 
concerning its output in its version history, which do not 
seem to have been publicly documented. With the lat- 
est steps in the transition towards amsmath compatible 
IATgX though, TeXForm will probably stabilize. However, 
Mathematica versions 4.x and earlier will likely either 
require to include additional style files shipped with these 
versions to process the generated commands or 

to manually produce ordinary code. There are 

two possibilities to achieve the latter. First, one can 



MathPSfrag provides a convenient interface to PS- 
frag permitting the generation of high-quality labels in 
Mathematica graphics. While it automatizes all te- 
dious aspects of PSfrag, it still allows to seamlessly over- 
ride all of its internal assumptions. Finally, MathPSfrag 
does not provide methods to construct correct tick mark 
contents as it is strictly focussed on shape. As shown in 
fig. E| it does however integrate well with the CustomTicks 
package [6j, which provides that functionality. 
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FIGURE SOURCE CODE 



We assume that MathPSfrag and CustomTicks are placed where they can be found by MATHEMATICA. CustomTicks 
is only needed for one of the examples. 



Needs ["MathPSfrag" 1 ] ; 
Needs ["CustomTicks ' "] ; 
<< Graphics ' Arrow ' ; 

SetDirectory ["/tmp/"] ; (* set according to your needs *) 
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1, Automatic Example 



This example produces the conventional MATHEMATICA plot in fig. 1(a) Merely in the last line, a MathPSfrag 



command is invoked to produce fig. 1(b) 



fl[x_] := Sin[x] ; 

f2[x_] := 3* ((Cos [2 Sqrt [x] ] ) ~2) ~ (1/3) ; 

rawplot = Plot[{fl[x], f2[x]}, {x, 0, 2 Pi}, 

PlotStyle^{Hue[1.0] , Hue [0.6]}, Frame^True, 
FrameTicks^{Pi/2*{0, 1, 2, 3, 4}, Automatic, None, None}, 
Text Style^-{FontFamily^ "Times"}] ; 

SimpleLabel [tip : {_, _}, txt_, txtpos : {_, _}, align : {_, _}] := Sequence [ 
Arrow [txtpos , tip, HeadScaling^ Absolute , HeadLength^8 , HeadCenter^O . 6] , 
Text[txt, txtpos, align]]; 

textlabels = Graphics [{ 

SimpleLabel [{Pi/2, fl[Pi/2]}, "local maximum", {1, -0.5}, {0, 1}], 
SimpleLabel [{7/6Pi, fl[7/6Pi]}, fl[x], {4.2, -0.3}, {-1, 0}], 
SimpleLabel [{4. 2, f2[4.2]}, f2[x], {3.5, 1.5}, {1, 0}] 

}]; 

mygrid = Map[{#, {AbsoluteDashing[{0 . 1 , 1}], GrayLevel [0 . 5] }} ft, {Pi*{l/2, 1, 

3/2}, {1, 2}}, {2}]; 
exampleplot = Show [rawplot, textlabels, GridLines^mygrid] ; 

Export ["ex_nopsfrag.eps" , exampleplot, "EPS"] 
PSf ragExport ["ex_auto" , exampleplot] 



2. Rotated Text 



While MATHEMATICA does not rotate the letters of a rotated Text on screen, both the conventional Export and 
PSf ragExport do the right thing, cf. fig. El Furthermore, it is demonstrated, that PSf ragExport can apply the option 
PlotRange— »A11 to the graphics before carrying out the export. 

Show [Graphics [{ 

Table [Text ["Example " <> ToString [Round [phi*180/Pi] ] , 

{Cos [phi], Sin [phi]}, {0, 0}, {Cos [phi] , Sin [phi]}], 
{phi, 0, 2Pi - 0.01, 2Pi/6}] , 
Table [Text [PSf rag ["Example " <> ToString [Round [phi* 180/Pi]]] , 

{Cos [phi], Sin [phi]}, {0, 0}, {Cos [phi] , Sin [phi]}], 
{phi, 2Pi/12, 2Pi - 0.01, 2Pi/6}] , 
Circle [{0, 0}, 1] 

}]]; 

PSf ragExport ["ex_rot" , '/,, AutoConvertText — » False, PlotRange — > All] 



3. Three-dimensional Knot 



Here, the three-dimensional knot in fig. 31 is generated. Note that PSf ragExport acting on Graphics3D always 
implies AutoConvertText^False and AutoPosition^False. 

myticks3d = {#, PSfrag[#, Position^"Br"] } ft /<§ {-1, -0.5, 0, 1, 0.5, 1}; 
ParametricPlot3D [ 

Evaluate [Flatten [{(0.5 + . 2*Cos [phi/5] + r*Sin[l . 7phi] ) {Cos [phi] , 
Sin[phi]}, phi/(5Pi) + r*Cos[1.7 phi]}]], 

{phi, -3Pi, 4Pi}, {r, 0.05, 0.2}, PlotPoints^{200, 3}, Ticks^-{myticks3d, myticks3d, myticks3d}] ; 
PSf ragExport ["ex_3d" , '/, , RenumberTags^True] 
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4. Manual Clone of the Introductory Example 



Under the assumption that the automatic export did not work at all, the manual alignment options are used to 



reproduce fig. 1(b) Moreover, the opportunity to improve the cos(. . . ) label by hand is seized; the corresponding 



commands below are in italics. The functions f 1, f 2 and SimpleLabel from the first example have been taken over, 
mytickmarks = { 

{N[#], PSfrag[#, Position^"tc"]} ft /<§ (Pi/2*{0, 1, 2, 3, 4}), 
{N[#], PSfrag[#, Position^"cr"]} ft /@ {-1, 0, 1, 2, 3}, 
None , 
None}; 



texstr = "$3\leftl\cos \sqrt{4x}\right I ~\frac{2}{3}$" ; 
Show[ Plot[ 

{fl[x], f2[x]}, {x, 0, 2 Pi}, PlotStyle^{Hue[1.0] , Hue[0.6]}, 
Frame^True, FrameTicks^mytickmarks , GridLines^mygrid, 
DisplayFunction^ Identity 
], 

Graphics [{ 

SimpleLabel [{Pi/2, fl[Pi/2]}, 

PSf rag ["local maximum", Position^"tc"] , {1, -0.5}, {0, 1}], 
SimpleLabel [{7/6Pi, fl[7/6Pi]}, 

PSfrag[f l[x] , Positioned"], {4.2, -0.3}, {-1, 0}], 
SimpleLabel [{4. 2, f2[4.2]}, 

PSfrag[f2[x] , Position^"cr" , TeXCommand-^ texstr] , {3.5, 1.5}, {1, 0}] 
}] , 

DisplayFunction— >$DisplayFunction 

]; 

PSf ragExport ["ex_manual" , '/,, AutoConvertText^-False , AutoPosition^False] 



5. HoldForm plus CustomTicks 



Fig.[J|is a plain example demonstrating that HoldForm can be used to fix the shape of an expression while LinTicks 
from CustomTicks 0] can be used to circumvent the usual stripped decimal "1." and print a much nicer "1.0" instead. 

Plot[(3x - 1)~3, {x, -0.5, 2.5}, PlotStyle^Hue [0 . 6] , 

AxesLabel^{x, HoldForm[(3x - 1)~3]}, 

Ticks^{LinTicks[-0.5, 2.5], LinTicks [-15 , 18]}]; 
PSf ragExport ["exjiold" , */,] 
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